home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu494.dms / pu494.adf / MANDDEMO / arexx / SetMaxIters.mnd2 < prev    next >
Text File  |  1993-08-18  |  685b  |  17 lines
  1. /* This script is supplied with the Mand2000 demo and release */
  2. /* versions and may be freely distributed. */
  3.  
  4. /* Invoke Mand2000 maxiters requester from ARexx. */
  5.  
  6. portname = address()    /* Retrieve the current port name. */
  7. /* If the portname does not start with MAND2000 then this script must */
  8. /* have been run with rx, rather than from Mand2000.  Therefore we */
  9. /* need to set the port name.  We do not always set the port name */
  10. /* because it is better to let Mand2000 set it for us, so that */
  11. /* this script can be used with windows other than the one with */
  12. /* port name MAND2000.1. */
  13. if (left(portname, 8) ~= "MAND2000") THEN
  14.     address 'MAND2000.1'
  15.  
  16. REQUESTER MAXITERS ON
  17.